home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Oberon / source / amiga / Potgo.mod < prev    next >
Text File  |  1995-06-29  |  1KB  |  58 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: Potgo.mod $
  4.   Description: Interface to potgo.resource
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.8 $
  8.       $Author: fjc $
  9.         $Date: 1995/06/04 23:13:14 $
  10.  
  11.   $VER: potgo.h 36.0 (13.4.90)
  12.   $VER: potgo_protos.h 36.3 (7.11.90)
  13.   Includes Release 40.15
  14.  
  15.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  16.       All Rights Reserved
  17.  
  18.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  19.   This file is part of the Oberon-A Interface.
  20.   See Oberon-A.doc for conditions of use and distribution.
  21.  
  22. ***************************************************************************)
  23.  
  24. <* STANDARD- *>
  25.  
  26. MODULE [2] Potgo;
  27.  
  28. IMPORT e := Exec, s := Sets;
  29.  
  30.  
  31. CONST
  32.  
  33.   potgoName * = "potgo.resource";
  34.  
  35.  
  36. (*-- Resource Base variable --------------------------------------------*)
  37.  
  38. VAR
  39.  
  40.   base * : e.APTR;
  41.  
  42.  
  43. (*-- Resource Functions ------------------------------------------------*)
  44.  
  45.  
  46. PROCEDURE AllocPotBits* [base,-6]
  47.   ( bits [0] : s.SET16 ) : s.SET16;
  48. PROCEDURE FreePotBits* [base,-12]
  49.   ( bits [0] : s.SET16 );
  50. PROCEDURE WritePotgo* [base,-18]
  51.   ( word [0] : s.SET16;
  52.     mask [1] : s.SET16 );
  53.  
  54. BEGIN base := NIL
  55. END Potgo.
  56.  
  57.  
  58.